home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 June / Cd Pc Users 9.iso / prog / inst / baslibs / basnet.bas < prev    next >
Encoding:
BASIC Source File  |  1996-12-11  |  570 b   |  25 lines
  1. Attribute VB_Name = "basNet"
  2. Option Explicit
  3.  
  4. Private Declare Function WNetGetUser Lib "mpr" Alias _
  5.    "WNetGetUserA" (ByVal lpName As String, _
  6.    ByVal lpUserName As String, lpnLength As Long) As Long
  7.  
  8. '
  9. '  Returns the user name or "" if the
  10. '  user is not logged on.
  11. '
  12. Public Function NetUserName() As String
  13.    Dim i As Long
  14.    Dim UserName As String * 255
  15.  
  16.    i = WNetGetUser("", UserName, 255)
  17.    
  18.    If i = 0 Then
  19.       NetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
  20.    Else
  21.       NetUserName = ""
  22.    End If
  23.    
  24. End Function
  25.